10 REM Font Switcher (C) 1993 Auld Bastid (Big Bum In A Wee Frame Productions) 100 CLS 1000 IF 1010 NEXT 1020 RETURN 1030 UNKNOWN OP: 0x3A 1040 REM save to compiler 1050 UNKNOWN OP: 0x3A 1060 MENU 1070 IF 1080 LOCATE 1090 PRINT 110 PEN 1100 PRINT 1110 IF 1120 VARNAME 1130 BSAVE 1140 CLS 1150 UNKNOWN OP: 0x3A 1160 REM Save to stos 1170 UNKNOWN OP: 0x3A 1180 MENU 1190 IF 120 GOSUB 1200 LOCATE 1210 PRINT 1220 PRINT 1230 IF 1240 VARNAME 1250 BSAVE 1260 CLS 1270 REM install as a system font 1280 DREG 1290 VARNAME 130 ON 1300 COPY 1310 PRINT 1320 UNKNOWN OP: 0x3A 1330 REM about fontswitch 1340 UNKNOWN OP: 0x3A 1350 WINDOPEN 1360 HIDE 1370 PEN 1380 PEN 1390 CENTRE 140 GOTO 1400 CENTRE 1410 PRINT 1420 CENTRE 1430 CENTRE 1440 PRINT 1450 CENTRE 1460 CENTRE 1470 CENTRE 1480 CENTRE 1490 CENTRE 150 UNKNOWN OP: 0x3A 1500 CENTRE 1510 CENTRE 1520 PRINT 1530 CENTRE 1540 CENTRE 1550 CENTRE 1560 CLEAR KEY 1570 WINDEL 1580 UNKNOWN OP: 0x3A 1590 REM STOSSER 160 REM ABOUT 1600 UNKNOWN OP: 0x3A 1610 MENU 1620 LOCATE 1630 PRINT 1640 PRINT 1650 PRINT 1660 PRINT 1670 PRINT 1680 PRINT 1690 WINDEL 170 UNKNOWN OP: 0x3A 1700 GOTO 1710 UNKNOWN OP: 0x3A 1720 REM display font in a window 1730 UNKNOWN OP: 0x3A 1740 MENU 1750 FOR 1760 QWINDOW 1770 WINDEL 1780 UNKNOWN OP: 0x3A 1790 REM little subbies 180 VARNAME 1800 UNKNOWN OP: 0x3A 1810 VARNAME 1820 X MOUSE 1830 CLEAR KEY 1840 VARNAME 1850 VARNAME 1860 CLEAR KEY 1870 UNKNOWN OP: 0x3A 1880 REM em menu definition 1890 UNKNOWN OP: 0x3A 190 IF 1900 MENU$ 1910 MENU$ 1920 MENU$ 1930 MENU$ 1940 MENU$ 1950 MENU$ 1960 MENU$ 1970 MENU$ 1980 MENU$ 1990 MENU$ 20 UNKNOWN OP: 0x3A 200 IF 2000 MENU$ 2010 MENU$ 2020 FOR 2030 MENU$ 2040 MENU$ 2050 MENU$ 2060 RETURN 210 GOTO 220 UNKNOWN OP: 0x3A 230 REM INSTALL 240 UNKNOWN OP: 0x3A 250 VARNAME 260 IF 270 IF 280 IF 290 GOTO 30 DIM 300 UNKNOWN OP: 0x3A 310 REM FILE 320 UNKNOWN OP: 0x3A 330 VARNAME 340 IF 350 IF 360 IF 370 GOTO 380 UNKNOWN OP: 0x3A 390 REM VIEW 40 IF 400 UNKNOWN OP: 0x3A 410 VARNAME 420 IF 430 IF 440 GOSUB 450 IF 460 CLS 470 GOTO 480 UNKNOWN OP: 0x3A 490 REM QUIT the program 50 VARNAME 500 UNKNOWN OP: 0x3A 510 MENU 520 PEN 530 GOSUB 540 IF 550 ERASE 560 DEFAULT 570 UNKNOWN OP: 0x3A 580 REM load MBK file 590 UNKNOWN OP: 0x3A 60 ERASE 600 VARNAME 610 IF 620 LOAD 630 VARNAME 640 IF 650 IF 660 GOSUB 670 FOR 680 FOR 690 NEXT 70 NEXT 700 IF 710 RETURN 720 UNKNOWN OP: 0x3A 730 REM load CR? file 740 UNKNOWN OP: 0x3A 750 VARNAME 760 IF 770 OPEN IN 780 REM f L>charlen(5) then bell : cls : pen C2 : curs off : locate 0,10 : centre "Error: This font is too large to use at the moment!" : print : print : centre "Press Something To Continue." : gosub 8920 : goto 40 790 CHARCOPY 80 GOSUB 800 BLOAD 810 VARNAME 820 IF 830 GOSUB 840 FOR 850 FOR 860 NEXT 870 IF 880 RETURN 890 UNKNOWN OP: 0x3A 90 GOSUB 900 REM Display information 910 UNKNOWN OP: 0x3A 920 IF 930 VARNAME 940 LOCATE 950 PRINT 960 PRINT 970 PRINT 980 FOR 990 DREG